home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
create
/
gradientblocks
< prev
next >
Wrap
Text File
|
1999-06-15
|
897b
|
50 lines
Filter Factory Plugin Information:
FILENAME: GGRADBLK.8BF
CATEGORY:
Greg's Factory Output
TITLE:
Gradient Blocks
COPYRIGHT:
Copyright © 1996 Greg Schorno
All Rights Reserved.
AUTHOR:
Greg Schorno - gschorno@mars.ark.com
Map 0: [Map 0:]
Map 1: [Map 1:]
Map 2: [Map 2:]
Map 3: [Map 3:]
Control 0: [X Scale:]
Control 1: [Y Scale:]
Control 2: [Block Size:]
Control 3: [Color Phase:]
Control 4: [Red Freq:]
Control 5: [Green Freq:]
Control 6: [Blue Freq:]
Control 7: [Control 7:]
R=
put(val(2,M/512,M/4),1),
put(M/64,2),
put((x*val(0,1,8)/get(1)*get(1)+y*val(1,1,8)/get(1)*get(1)),1),
put(get(1)*ctl(4)/M+val(3,-256,256),0),
get(0)&256?511-(get(0)&511):get(0)&255
G=
put(get(1)*ctl(5)/M+val(3,-256,256),0),
get(0)&256?511-(get(0)&511):get(0)&255
B=
put(get(1)*ctl(6)/M+val(3,-256,256),0),
get(0)&256?511-(get(0)&511):get(0)&255
A=
a